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4 
2 : 
$ oF 
8 4 
10 19 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
1} : ' : ALL RIGHTS RESERVED. 
ig 1§ 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
14 146 1! LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
15 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI FTWARE OR ANY OTHER 
16 1 1 '!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
7 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
18 3 } :. TRANSFERRED. 
0 0 Tis THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
g b05§ ' :* CORPORATION. 
is 
4 ooSe 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
5 0025 1 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
$$ b057 | is 
8 0028 1 Seeeeeereraeara eee eee eee AREA AAA AAA TAA TARA TATA AAAKAA RATA ee eee 
+) fh 1! 
tHE Tw 
¢ 0032 1! FACILITY: 
tz OO ; Basic support library - user callable 
35 0035 1 | ABSTRACT: 
36 0036 1! This module is the UPI Level of the Basic UPDATE construct. Initially, 
- 0037 1! it contains only the code for sequential 1/0. This module will set 
8 0038 1! up the 1/0 data base for the LUN and go directly to the REC Level. 
BBB 
41 0041 1 | ENVIRONMENT: 
$6 rk } User access mode - AST reentrant. 
44 0064 i ! AUTHOR: Donald G. Petersen, CREATION DATE: 27-Feb-79 
46 0046 MODIFIED BY: 
48 0048 1 DGP, 27-Feb-79 : y RSION 01 
49 049 1 ! 1-001 = original. DGP 27-Feb-7 
50 0050 1! I- 8 = Add Update with count. DGP 28-Feb-79 
51 051 1 ! 1-003 = Add Address ing switches. DGP 18-Jun-79 
26 B26 1 ! 1-004 - Check for virtual array use and read only. DGP 16-Oct-79 
5 053 1 ! 1-005 - If no count is spec ified. yse the current record size, not the 
54 054 1! buffer size. DGP 12-Feb-8 
&5 055 1 1-006 - If channel is not already open signal. FM 12-FEB-81. 
2$ B28 ' 1-007 = Set up ISBSA_USER_FP. MDL 8-Nov~-19 
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| SWITCHES 


: LINKAGES 
2 REQUIRE "RTLIN:OTSLNK’; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSUPDATE_COUN:NOVALUE, 
BASSUPDATE :NOVALUE; 

INCLUDE FILES: 

; REQUIRE ‘RTLML:OTSISB'; 

"RTLML:OTSLUB': 
REQUIRE 'RTLIN:RTLPSECT’; 
LIBRARY *RTLSTARLE'; 

' 

! MACROS: 

i NONE 


EQUATED SYMBOLS: 
NONE 


PSECT DECLARATIONS: 

; DECLARE _PSECTS (BAS) ; 
: OWN STORAGE: 

; NONE 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
BASSK_ILCILLACC : UNSIGN 


EXTERNAL ROUTINE 
BAS$$STOP_10 : NOVALUE 


a a ke ed a a et wo dd ss od 


BAS$K_IO_CHANOT : UNSIGNED (8), 
ED (8); 


726 orth Oi rte V4.0-74 
45 BASRTL.SRCJBASUPDATE .B52;1 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Define all Linkages 


UPI UPDATE with count 


! UPI Level Sequential UPDATE 


! ISB defi 
LUB defi 


Starlet 


"UPDATE s 


nitions 
nitions 


Define DECLARE_PSECTS macro 


system macros 


1/0 channel not open 
illegal or illogical access 


' Signal 1/0 errors 
BASSSREC_OPD:JSB_DO_WRITE NOVALUE, 


REC level processing - RMS interface 
equential 


Page 
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Bs 
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Meee See 


6 | 
BASSUPDATE 18-50 -1984 01:27:24 AX-11 Bliss-32 v4.0-7 Page 3 | B 
eASoy easep1obe 91:80:48 — Poasnte sae SBacuepace oS2s1 9 02) 2: 
: 116 0943 «1 BASS$CB_PUSH: JSB_CB -PUSH | NOVALUE, 
; (Ti7 0944 #1 Create LUB/ISB/RAB and push down I/0 system ‘ 
; #4118 0945 1 BASS$$CB_POP: JSB_CB_POP wovALUe. ! Pop 1/0 system back one CB 
: 119 0946 1 
| 
OS ets NEE CART 5 RE EIT Se LOA POE Lae Ee OLR AMR I REE Wg te hE as 
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| dD 6 
agro IESEBCHRRE 1:80:85 Halon SURHaRS ate 


p-1984 ASRTL.SRC 

s 121 947 1 GLOBAL ROUTINE BASSUPDATE ( —!_-UPDATE sequential 

 ' ¢ so 1 UNIT ! Logical unit number 

SS 94 1 ) :NOVALUE = 

> 126 950 1 
13s 3¢5 b3a3 1 t+4 
a : § 3326 : FUNCTIONAL DESCRIPTION: 

; 128 0954 1! This routine will set up the 1/0 data base for this LUN if necessary 
: 129 8322 ,! and then go directly to the REC level. When control is returned to 
; 13 Bee ,! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
; ; 1 94 44 : face to RMS is done at the REC level. The current record is updated. 
» ¥ 5 $326 1 ! FORMAL PARAMETERS: 

eS 0960 1! 

s 135 0961 1! UNIT. rlu.v Logical unit number 

. ¥ 3208 1! 

>. oa 09635 1 ! IMPLICIT INPUTS: 

; iS 0964 1! : : 

3; 13 0965 1! LUBSV_VA_USE indicates virtual array use of the file 

3; 140 0966 1! LUBSV_READ_ONLY file is read only | 

: (141 0967 1! RABSW_RSZ the current buffer size 

; 166 0968 1! 

3; 1% 0969 1 ! IMPLICIT OUTPUTS: 

> (1446 0970 1! 

3; 145 0971 1! 1SB$B_STTM_TYPE the statement type 1 

; ios o37 : LUB$V_BLK_OSE indicates non-virtual array use of file 

; «61468 0974 1 ! COMPLETION CODES: 

3; «6149 0975 1! 

3 190 0976 1! NONE 

; «151 0977 1! 

3 13¢ 0978 1 ! SIDE EFFECTS: 

: 0979 1! 

3; «(154 0980 1! pignetes ; ; - 

; 155 0981 1! BAS$K_ILLILLACC illegal of illogical access 

; «4156 0982 1! 

3 137 09835 1 !-- 

> «158 0984 1 

3: 6159 0985 2 BEGIN 

; 160 0986 $ GLOBAL REGISTER 

; 161 0987 CCB = K_CCB_REG: REF BLOCKC, BYTE); 

; 16g 0988 

; (Ue 0989 BUILTIN 

: 164 990 FP; 

: «165 991 

3; 166 099 LOCAL : 

3; «6167 099 FMP : REF BLOCK C, BYTE!: 

; 168 0994 

: 199 0996 FMP = .FP; 

, iy 399 + oe 

s We 0998 ! Allocate the LUB/ISB/RAB for this unit if necessary. Store new (B (con- 
; Ht +444 trol block) in OTSS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 
5 UTS 1001 

: 176 1008 BASSS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 

3 (177 100 


Cr 
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14-Sep-1984 91:80: 


CCB CISBSA_USER_FP) = .FMP CSFSL_SAVE_FP); 
'¢ 


i Now that the data base is in place, store the statement type and go 
directly to the REC level. 


é rete a v4.0- 


4 
5 BASRTL.SRC 


CCBCISBSB_STTM_TYPE] = ISBSK_ST_TY_UPD; 


i Check for virtual array usage and set block usage 
! If channel not already open, signal. 


07 


CCB _CLUBSV_VA_USE] OR .CCB CLUBSV_READ_ONLY] THEN BASSSSTOP_IO(BASSK_ILLILLACC); 


IF . 
IF (NOT .CCB CLUBSV_OPENEDJ) THEN BASS$STOP_IO (BASSK_10_CHANOT); 


CCB _CLUBSV_BLK_USE) = 1; 
BASSS$REC_UPD(. CCBLRABSW_RSZ)); 


'¢ 
Now that the UPDATE has been done, pop the CCB off the 1/0 system. 


BASS$$CB_POP (); 


END; 'End of BASSUPDATE 

TITLE BASSUPDATE 

I \1-007\ 

-EXTRN BAS$K_10_CHANOT 

~-EXTRN BASS$K-ILCILLACC 

-EXTRN BASS$SSTOP_10, BASSSREC_UPD 
-EXTRN BASS$$CB_POSH, BAS$$CB_POP 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


083c 00000 .ENTRY BASSUPDATE, Save R2,R3,R4,R5,R11 
54 000000006 00 4 00002 MOVAB BAS$$STOP_I0, R4 
53 D 00 00009 MOVL FP, FMP 
20 08 ce 000¢ MNEGL #8. RO 
5 04 AC DO 6000F MOVL UNIT, R2 
000000006 00 16 00013 JSB BAS$$CB_PUSH 
FF4C CB OC A p 0019 MOVL VecFMP) -180(CCB) 
FF71 CB 2 OO1F MOVB #35, =143(CCB) 
05 FF AB E8 00024 BLBS -1(¢cB), 1$ 
FC AB 0 Fl 00 8 C #2, -4(€CB), 28 
7E 006 8F 9A 0002D 1$ MOVZBL #BASSK j LICLACC, =(SP) 
64 01 FB 0031 CALLS #1, BAS ; OP_I0 
07 FC AB f 0034 2% BS -4(CCB) 
7E 00G 8F 9A 00 8 MOVZBL #BAS$K {io CHANOT, =(SP) 
64 1 EB C CALLS #1, BASSSSTOP_I0 
FF AB 02 : OO3F 3S: B1SB We =1(CCB) 
50 22 AB 3C 00043 MOVZWL 34(CCB), RO 
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; Routine Size: 


84 bytes, 


Routine Base: 


6 
16-Sep-1984 01:27:24 AX-11 Oh ist -32 v4.0 Pa 6 / 
10235071 98¢ 91:8eies BASRTL. §Re} BASUPDATE. £852; :1 es (3) et 
000000006 8 16 00047 JSB BASSSREC_UPD 3 
000000006 00 16 00040 JSB BAS$$CB_PoP : 1027 
04 00053 RET ; 1031 


-BASSCODE + 0000 


——___— 
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GLOBAL ROUTINE BASSUPDA 
UNIT 


WF wr 


Count 
) :NOVALUE = 


lee 


Owe 


This routine wi 

and then go dir 

this routine, i 

face to RMS js 
i FORMAL PARAMETERS: 


UNIT. rlu.v 
COUNT. rl.v 


i IMPLICIT INPUTS: 
LUBSV_VA 


' 

! 

' 

' 

' 

' 

' 

1 

! 

1 

1 

1 

; USE 
LUBSV_READ_ONLY 
IMPLICIT OUTPUTS: 
ISBSB_STTM_TYPE 
! 

1 

1 

t 

' 

! 

' 

t 

‘ 

! 

! 


WA. AAI AIR ROP POPUINOPONYINYD 2 2 Ss SS OS 


SSWNOKR WO OW SOM RUIN SO Doe NOUN Us O00 POD 


LUBSV_BLK_OSE 
i COMPLETION CODES: 


SOOO OCOCOCOSCOOCOCOOOOCOOOCOOOOO oo 
SSS SRESSS maar RES RERLRELES Setrteiety | 
MEWN 0 OONOU FW OOO NOU SW 


ee em ee ee ee ee ee ee ee ed ed ed ed 
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2 
2 
2 
34 
3 
3 
; ! NONE 
3 ' SIDE EFFECTS: 
4 66 Bi gnetss 
24 7 BASSK_ILLILLACC 
24 8 
3 9 a 
4 070 
24 071 BEGIN 
$ O7¢ GLOBAL REGISTER 
4 07 CCB = K_CCB_REG 
35 ae: BUILTIN 
51 076 FP; 
25 077 
25 078 LOCAL 
54 079 FMP : REF BLOCK 
55 080 
56 081 FMP = .FP; 
57 oes 
58 08 '¢ 
59 084 ' Allocate the LUB/ 
60 085 ' trol block) in OT 
61 036 != 
o¢ 08 
26 088 BAS$S$CB_PUSH (.UNIT 
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10-30-1384 Bere: YBASRTL SRC BASUPDATE .B852;1 


TE_COUN ( ! UPDATE with count 
' Logical unit number 
! No. of bytes in record 


FUNCTIONAL DESCRIPTION: 


Ll set up the 1/0 data base for this LUN if necessary 
ectly to the REC Level. When control is returned to 
t pops the CCB off of the 1/0 system. The actual inter- 
done at the REC level. The current record is updated. 


logical unit number 
No. of bytes in the record 


! tual array use of file 


vir 
file is read only 


the statement type 


non-virtual array use of file 


illegal or illogical access 


: REF BLOCKC, BYTE); 


C, BYTE); 


1SB/RAB for this unit if necessary. Store new (B (con- 
SS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 


, LUBSK_ILUN_MIN); 
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; Routine Size: 
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CCB CISBSA_USER_FP] = .FMP CSFSL_SAVE_FPI; 
'¢ 


! Now that the data base is in place, store the statement type ard go 
} directly to the REC level. 


CCBCISBSB_STTM_TYPE] = ISBSK_ST_TY_UPD; 


Check for virtual array usage and set block usage 


IF .CCB ELUBSV_VA yse OR .CCB CLUBSV_READ_ONLY] THEN BASSSSTOP_IO(BASS$K_ILLILLACC); 
CCB CLUB$V_BLK_USE) = 1; 

BASSSREC_UPD(. COUNT); 

' 


'¢ 
} Now that the UPDATE has been done, pop the CCB off the 1/0 system. 


BASSSCB_POP (); 


END; ‘End of BASSUPDATE 
083¢ 00000 .ENTRY BASSUPDATE_COUN, Save R2,R3,R4.R5.R11 
53 5D 00 0000 MOVL FP, FMP 
50 8 CE 0000 MNEGL #8. RO 
52 04 AC 00 00008 MOVL UNIT, R2 
000000006 00 16 0000C JSB BAS$$CB_PUSH 
FF4C CB 0c A DO 0001 MOVL seer? -180(CCB) 
FF71 CB 23 90 0001 MOVE #35, =-143(CCB) 
05 FF AB EB 0001D BLBS -1(¢CB), 1$ 
FC AB 2 Ft 00021 BBC #2, -4(€CB), 2$ 
7E 006 8F 9A 00026 18: MOVZBL #BASSK_ILLILLACC, -(SP) 
000000006 00 1 EB 0002A CALLS #1, BAS$S$STOP_IO 
FF AB 2 88 00031 28: BISB2 #2. -1(CCB) 
5 08 Ac DO 00035 MOVL COUNT, RO 
900000006 00 16 0039 JSB BASS$SREC_UPD 
00000006 16 0003F JSB BAS$$CB_POP 
04 00045 RET 


Routine Base: _BASSCODE + 0054 
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poet By 115 pages 
Compi hs Complete 
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BA ATE 1b- ep-1 1:27: AX-11 Bliss-32 v4.0-74 P 
35H" 1er8sp=198e 3h:8:2s = PeAsare SAeSeacubate $2; _ 
3 1114 ‘End of module = BASSUPDATE 
bf 1118 0 Elboon 
; PSECT SUMMARY 
; Name Bytes Attributes 
> _BASSCODE 154 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
F Library Statistics 
3 cooccess SYNCS cocecece Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 2 0 581 00:01.2 
4 COMMAND QUALIFIERS 
: SLISS/CHECK=CFTELD, INITIAL OPTIMIZE) /MOTRACE/L IS@L ISS :BASUPDATE/0B)=08)8 :BASUPDATE MSRC$:BASUPDATE/UPDATE=(ENH$:BASUPDATE 
; Size 154 code + 0 data bytes 
3 Run Ti 00:09.7 
3; Elapsed Time 00:19.4 


we | 


ww 


ENT CORPORATION 
ND PROPRIETARY 
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